/*
   ITU-T G.729A Speech Coder    ANSI-C Source Code
   Version 1.1    Last modified: September 1996

   Copyright (c) 1996,
   AT&T, France Telecom, NTT, Universite de Sherbrooke
   All rights reserved.
*/


/* This file contains all the tables used by the G.729A codec */

#include "typedef.h"
#include "ld8a.h"
#include "tab_ld8a.h"

/* Hamming_cos window for LPC analysis.           */
/*   Create with function ham_cos(window,200,40)  */

Word16 hamwindow[L_WINDOW] = {
  2621, 2623, 2629, 2638, 2651, 2668, 2689, 2713, 2741, 2772,
  2808, 2847, 2890, 2936, 2986, 3040, 3097, 3158, 3223, 3291,
  3363, 3438, 3517, 3599, 3685, 3774, 3867, 3963, 4063, 4166,
  4272, 4382, 4495, 4611, 4731, 4853, 4979, 5108, 5240, 5376,
  5514, 5655, 5800, 5947, 6097, 6250, 6406, 6565, 6726, 6890,
  7057, 7227, 7399, 7573, 7750, 7930, 8112, 8296, 8483, 8672,
  8863, 9057, 9252, 9450, 9650, 9852, 10055, 10261, 10468, 10677,
  10888, 11101, 11315, 11531, 11748, 11967, 12187, 12409, 12632, 12856,
  13082, 13308, 13536, 13764, 13994, 14225, 14456, 14688, 14921, 15155,
  15389, 15624, 15859, 16095, 16331, 16568, 16805, 17042, 17279, 17516,
  17754, 17991, 18228, 18465, 18702, 18939, 19175, 19411, 19647, 19882,
  20117, 20350, 20584, 20816, 21048, 21279, 21509, 21738, 21967, 22194,
  22420, 22644, 22868, 23090, 23311, 23531, 23749, 23965, 24181, 24394,
  24606, 24816, 25024, 25231, 25435, 25638, 25839, 26037, 26234, 26428,
  26621, 26811, 26999, 27184, 27368, 27548, 27727, 27903, 28076, 28247,
  28415, 28581, 28743, 28903, 29061, 29215, 29367, 29515, 29661, 29804,
  29944, 30081, 30214, 30345, 30472, 30597, 30718, 30836, 30950, 31062,
  31170, 31274, 31376, 31474, 31568, 31659, 31747, 31831, 31911, 31988,
  32062, 32132, 32198, 32261, 32320, 32376, 32428, 32476, 32521, 32561,
  32599, 32632, 32662, 32688, 32711, 32729, 32744, 32755, 32763, 32767,
  32767, 32741, 32665, 32537, 32359, 32129, 31850, 31521, 31143, 30716,
  30242, 29720, 29151, 28538, 27879, 27177, 26433, 25647, 24821, 23957,
  23055, 22117, 21145, 20139, 19102, 18036, 16941, 15820, 14674, 13505,
  12315, 11106, 9879, 8637, 7381, 6114, 4838, 3554, 2264, 971
};


/*-----------------------------------------------------*
 | Table of lag_window for autocorrelation.            |
 | noise floor = 1.0001   = (0.9999  on r[1] ..r[10])  |
 | Bandwidth expansion = 60 Hz                         |
 |                                                     |
 | Special double precision format. See "oper_32b.c"   |
 |                                                     |
 | lag_wind[0] =  1.00000000    (not stored)           |
 | lag_wind[1] =  0.99879038                           |
 | lag_wind[2] =  0.99546897                           |
 | lag_wind[3] =  0.98995781                           |
 | lag_wind[4] =  0.98229337                           |
 | lag_wind[5] =  0.97252619                           |
 | lag_wind[6] =  0.96072036                           |
 | lag_wind[7] =  0.94695264                           |
 | lag_wind[8] =  0.93131179                           |
 | lag_wind[9] =  0.91389757                           |
 | lag_wind[10]=  0.89481968                           |
 -----------------------------------------------------*/

Word16 lag_h[M] = {
  32728,
  32619,
  32438,
  32187,
  31867,
  31480,
  31029,
  30517,
  29946,
  29321
};

Word16 lag_l[M] = {
  11904,
  17280,
  30720,
  25856,
  24192,
  28992,
  24384,
  7360,
  19520,
  14784
};


/*-----------------------------------------------------*
 | Tables for function Lsf_lsp() and Lsp_lsf()         |
  -----------------------------------------------------*/

/* table of cos(x) in Q15 */

Word16 table[65] = {
  32767, 32729, 32610, 32413, 32138, 31786, 31357, 30853,
  30274, 29622, 28899, 28106, 27246, 26320, 25330, 24279,
  23170, 22006, 20788, 19520, 18205, 16846, 15447, 14010,
  12540, 11039, 9512, 7962, 6393, 4808, 3212, 1608,
  0, -1608, -3212, -4808, -6393, -7962, -9512, -11039,
  -12540, -14010, -15447, -16846, -18205, -19520, -20788, -22006,
  -23170, -24279, -25330, -26320, -27246, -28106, -28899, -29622,
  -30274, -30853, -31357, -31786, -32138, -32413, -32610, -32729,
  -32768L
};

/* slope in Q12 used to compute y = acos(x) */

Word16 slope[64] = {
  -26887, -8812, -5323, -3813, -2979, -2444, -2081, -1811,
  -1608, -1450, -1322, -1219, -1132, -1059, -998, -946,
  -901, -861, -827, -797, -772, -750, -730, -713,
  -699, -687, -677, -668, -662, -657, -654, -652,
  -652, -654, -657, -662, -668, -677, -687, -699,
  -713, -730, -750, -772, -797, -827, -861, -901,
  -946, -998, -1059, -1132, -1219, -1322, -1450, -1608,
  -1811, -2081, -2444, -2979, -3813, -5323, -8812, -26887
};


/*-----------------------------------------------------*
 | Tables for function Lsf_lsp() and Lsp_lsf()         |
  -----------------------------------------------------*/

/* table of cos(x) in Q15 */

Word16 table2[64] = {
  32767, 32729, 32610, 32413, 32138, 31786, 31357, 30853,
  30274, 29622, 28899, 28106, 27246, 26320, 25330, 24279,
  23170, 22006, 20788, 19520, 18205, 16846, 15447, 14010,
  12540, 11039, 9512, 7962, 6393, 4808, 3212, 1608,
  0, -1608, -3212, -4808, -6393, -7962, -9512, -11039,
  -12540, -14010, -15447, -16846, -18205, -19520, -20788, -22006,
  -23170, -24279, -25330, -26320, -27246, -28106, -28899, -29622,
  -30274, -30853, -31357, -31786, -32138, -32413, -32610, -32729
};

/* slope in Q19 used to compute y = cos(x) */

Word16 slope_cos[64] = {
  -632, -1893, -3150, -4399, -5638, -6863, -8072, -9261,
  -10428, -11570, -12684, -13767, -14817, -15832, -16808, -17744,
  -18637, -19486, -20287, -21039, -21741, -22390, -22986, -23526,
  -24009, -24435, -24801, -25108, -25354, -25540, -25664, -25726,
  -25726, -25664, -25540, -25354, -25108, -24801, -24435, -24009,
  -23526, -22986, -22390, -21741, -21039, -20287, -19486, -18637,
  -17744, -16808, -15832, -14817, -13767, -12684, -11570, -10428,
  -9261, -8072, -6863, -5638, -4399, -3150, -1893, -632
};

/* slope in Q12 used to compute y = acos(x) */

Word16 slope_acos[64] = {
  -26887, -8812, -5323, -3813, -2979, -2444, -2081, -1811,
  -1608, -1450, -1322, -1219, -1132, -1059, -998, -946,
  -901, -861, -827, -797, -772, -750, -730, -713,
  -699, -687, -677, -668, -662, -657, -654, -652,
  -652, -654, -657, -662, -668, -677, -687, -699,
  -713, -730, -750, -772, -797, -827, -861, -901,
  -946, -998, -1059, -1132, -1219, -1322, -1450, -1608,
  -1811, -2081, -2444, -2979, -3813, -5323, -8812, -26887
};

/* lsp    code book   <../f7s55m1.v2> */

Word16 lspcb1[NC0][M] = {	/* Q13 */
  {1486, 2168, 3751, 9074, 12134, 13944, 17983, 19173, 21190, 21820}
  ,
  {1730, 2640, 3450, 4870, 6126, 7876, 15644, 17817, 20294, 21902}
  ,
  {1568, 2256, 3088, 4874, 11063, 13393, 18307, 19293, 21109, 21741}
  ,
  {1733, 2512, 3357, 4708, 6977, 10296, 17024, 17956, 19145, 20350}
  ,
  {1744, 2436, 3308, 8731, 10432, 12007, 15614, 16639, 21359, 21913}
  ,
  {1786, 2369, 3372, 4521, 6795, 12963, 17674, 18988, 20855, 21640}
  ,
  {1631, 2433, 3361, 6328, 10709, 12013, 13277, 13904, 19441, 21088}
  ,
  {1489, 2364, 3291, 6250, 9227, 10403, 13843, 15278, 17721, 21451}
  ,
  {1869, 2533, 3475, 4365, 9152, 14513, 15908, 17022, 20611, 21411}
  ,
  {2070, 3025, 4333, 5854, 7805, 9231, 10597, 16047, 20109, 21834}
  ,
  {1910, 2673, 3419, 4261, 11168, 15111, 16577, 17591, 19310, 20265}
  ,
  {1141, 1815, 2624, 4623, 6495, 9588, 13968, 16428, 19351, 21286}
  ,
  {2192, 3171, 4707, 5808, 10904, 12500, 14162, 15664, 21124, 21789}
  ,
  {1286, 1907, 2548, 3453, 9574, 11964, 15978, 17344, 19691, 22495}
  ,
  {1921, 2720, 4604, 6684, 11503, 12992, 14350, 15262, 16997, 20791}
  ,
  {2052, 2759, 3897, 5246, 6638, 10267, 15834, 16814, 18149, 21675}
  ,
  {1798, 2497, 5617, 11449, 13189, 14711, 17050, 18195, 20307, 21182}
  ,
  {1009, 1647, 2889, 5709, 9541, 12354, 15231, 18494, 20966, 22033}
  ,
  {3016, 3794, 5406, 7469, 12488, 13984, 15328, 16334, 19952, 20791}
  ,
  {2203, 3040, 3796, 5442, 11987, 13512, 14931, 16370, 17856, 18803}
  ,
  {2912, 4292, 7988, 9572, 11562, 13244, 14556, 16529, 20004, 21073}
  ,
  {2861, 3607, 5923, 7034, 9234, 12054, 13729, 18056, 20262, 20974}
  ,
  {3069, 4311, 5967, 7367, 11482, 12699, 14309, 16233, 18333, 19172}
  ,
  {2434, 3661, 4866, 5798, 10383, 11722, 13049, 15668, 18862, 19831}
  ,
  {2020, 2605, 3860, 9241, 13275, 14644, 16010, 17099, 19268, 20251}
  ,
  {1877, 2809, 3590, 4707, 11056, 12441, 15622, 17168, 18761, 19907}
  ,
  {2107, 2873, 3673, 5799, 13579, 14687, 15938, 17077, 18890, 19831}
  ,
  {1612, 2284, 2944, 3572, 8219, 13959, 15924, 17239, 18592, 20117}
  ,
  {2420, 3156, 6542, 10215, 12061, 13534, 15305, 16452, 18717, 19880}
  ,
  {1667, 2612, 3534, 5237, 10513, 11696, 12940, 16798, 18058, 19378}
  ,
  {2388, 3017, 4839, 9333, 11413, 12730, 15024, 16248, 17449, 18677}
  ,
  {1875, 2786, 4231, 6320, 8694, 10149, 11785, 17013, 18608, 19960}
  ,
  {679, 1411, 4654, 8006, 11446, 13249, 15763, 18127, 20361, 21567}
  ,
  {1838, 2596, 3578, 4608, 5650, 11274, 14355, 15886, 20579, 21754}
  ,
  {1303, 1955, 2395, 3322, 12023, 13764, 15883, 18077, 20180, 21232}
  ,
  {1438, 2102, 2663, 3462, 8328, 10362, 13763, 17248, 19732, 22344}
  ,
  {860, 1904, 6098, 7775, 9815, 12007, 14821, 16709, 19787, 21132}
  ,
  {1673, 2723, 3704, 6125, 7668, 9447, 13683, 14443, 20538, 21731}
  ,
  {1246, 1849, 2902, 4508, 7221, 12710, 14835, 16314, 19335, 22720}
  ,
  {1525, 2260, 3862, 5659, 7342, 11748, 13370, 14442, 18044, 21334}
  ,
  {1196, 1846, 3104, 7063, 10972, 12905, 14814, 17037, 19922, 22636}
  ,
  {2147, 3106, 4475, 6511, 8227, 9765, 10984, 12161, 18971, 21300}
  ,
  {1585, 2405, 2994, 4036, 11481, 13177, 14519, 15431, 19967, 21275}
  ,
  {1778, 2688, 3614, 4680, 9465, 11064, 12473, 16320, 19742, 20800}
  ,
  {1862, 2586, 3492, 6719, 11708, 13012, 14364, 16128, 19610, 20425}
  ,
  {1395, 2156, 2669, 3386, 10607, 12125, 13614, 16705, 18976, 21367}
  ,
  {1444, 2117, 3286, 6233, 9423, 12981, 14998, 15853, 17188, 21857}
  ,
  {2004, 2895, 3783, 4897, 6168, 7297, 12609, 16445, 19297, 21465}
  ,
  {1495, 2863, 6360, 8100, 11399, 14271, 15902, 17711, 20479, 22061}
  ,
  {2484, 3114, 5718, 7097, 8400, 12616, 14073, 14847, 20535, 21396}
  ,
  {2424, 3277, 5296, 6284, 11290, 12903, 16022, 17508, 19333, 20283}
  ,
  {2565, 3778, 5360, 6989, 8782, 10428, 14390, 15742, 17770, 21734}
  ,
  {2727, 3384, 6613, 9254, 10542, 12236, 14651, 15687, 20074, 21102}
  ,
  {1916, 2953, 6274, 8088, 9710, 10925, 12392, 16434, 20010, 21183}
  ,
  {3384, 4366, 5349, 7667, 11180, 12605, 13921, 15324, 19901, 20754}
  ,
  {3075, 4283, 5951, 7619, 9604, 11010, 12384, 14006, 20658, 21497}
  ,
  {1751, 2455, 5147, 9966, 11621, 13176, 14739, 16470, 20788, 21756}
  ,
  {1442, 2188, 3330, 6813, 8929, 12135, 14476, 15306, 19635, 20544}
  ,
  {2294, 2895, 4070, 8035, 12233, 13416, 14762, 17367, 18952, 19688}
  ,
  {1937, 2659, 4602, 6697, 9071, 12863, 14197, 15230, 16047, 18877}
  ,
  {2071, 2663, 4216, 9445, 10887, 12292, 13949, 14909, 19236, 20341}
  ,
  {1740, 2491, 3488, 8138, 9656, 11153, 13206, 14688, 20896, 21907}
  ,
  {2199, 2881, 4675, 8527, 10051, 11408, 14435, 15463, 17190, 20597}
  ,
  {1943, 2988, 4177, 6039, 7478, 8536, 14181, 15551, 17622, 21579}
  ,
  {1825, 3175, 7062, 9818, 12824, 15450, 18330, 19856, 21830, 22412}
  ,
  {2464, 3046, 4822, 5977, 7696, 15398, 16730, 17646, 20588, 21320}
  ,
  {2550, 3393, 5305, 6920, 10235, 14083, 18143, 19195, 20681, 21336}
  ,
  {3003, 3799, 5321, 6437, 7919, 11643, 15810, 16846, 18119, 18980}
  ,
  {3455, 4157, 6838, 8199, 9877, 12314, 15905, 16826, 19949, 20892}
  ,
  {3052, 3769, 4891, 5810, 6977, 10126, 14788, 15990, 19773, 20904}
  ,
  {3671, 4356, 5827, 6997, 8460, 12084, 14154, 14939, 19247, 20423}
  ,
  {2716, 3684, 5246, 6686, 8463, 10001, 12394, 14131, 16150, 19776}
  ,
  {1945, 2638, 4130, 7995, 14338, 15576, 17057, 18206, 20225, 20997}
  ,
  {2304, 2928, 4122, 4824, 5640, 13139, 15825, 16938, 20108, 21054}
  ,
  {1800, 2516, 3350, 5219, 13406, 15948, 17618, 18540, 20531, 21252}
  ,
  {1436, 2224, 2753, 4546, 9657, 11245, 15177, 16317, 17489, 19135}
  ,
  {2319, 2899, 4980, 6936, 8404, 13489, 15554, 16281, 20270, 20911}
  ,
  {2187, 2919, 4610, 5875, 7390, 12556, 14033, 16794, 20998, 21769}
  ,
  {2235, 2923, 5121, 6259, 8099, 13589, 15340, 16340, 17927, 20159}
  ,
  {1765, 2638, 3751, 5730, 7883, 10108, 13633, 15419, 16808, 18574}
  ,
  {3460, 5741, 9596, 11742, 14413, 16080, 18173, 19090, 20845, 21601}
  ,
  {3735, 4426, 6199, 7363, 9250, 14489, 16035, 17026, 19873, 20876}
  ,
  {3521, 4778, 6887, 8680, 12717, 14322, 15950, 18050, 20166, 21145}
  ,
  {2141, 2968, 6865, 8051, 10010, 13159, 14813, 15861, 17528, 18655}
  ,
  {4148, 6128, 9028, 10871, 12686, 14005, 15976, 17208, 19587, 20595}
  ,
  {4403, 5367, 6634, 8371, 10163, 11599, 14963, 16331, 17982, 18768}
  ,
  {4091, 5386, 6852, 8770, 11563, 13290, 15728, 16930, 19056, 20102}
  ,
  {2746, 3625, 5299, 7504, 10262, 11432, 13172, 15490, 16875, 17514}
  ,
  {2248, 3556, 8539, 10590, 12665, 14696, 16515, 17824, 20268, 21247}
  ,
  {1279, 1960, 3920, 7793, 10153, 14753, 16646, 18139, 20679, 21466}
  ,
  {2440, 3475, 6737, 8654, 12190, 14588, 17119, 17925, 19110, 19979}
  ,
  {1879, 2514, 4497, 7572, 10017, 14948, 16141, 16897, 18397, 19376}
  ,
  {2804, 3688, 7490, 10086, 11218, 12711, 16307, 17470, 20077, 21126}
  ,
  {2023, 2682, 3873, 8268, 10255, 11645, 15187, 17102, 18965, 19788}
  ,
  {2823, 3605, 5815, 8595, 10085, 11469, 16568, 17462, 18754, 19876}
  ,
  {2851, 3681, 5280, 7648, 9173, 10338, 14961, 16148, 17559, 18474}
  ,
  {1348, 2645, 5826, 8785, 10620, 12831, 16255, 18319, 21133, 22586}
  ,
  {2141, 3036, 4293, 6082, 7593, 10629, 17158, 18033, 21466, 22084}
  ,
  {1608, 2375, 3384, 6878, 9970, 11227, 16928, 17650, 20185, 21120}
  ,
  {2774, 3616, 5014, 6557, 7788, 8959, 17068, 18302, 19537, 20542}
  ,
  {1934, 4813, 6204, 7212, 8979, 11665, 15989, 17811, 20426, 21703}
  ,
  {2288, 3507, 5037, 6841, 8278, 9638, 15066, 16481, 21653, 22214}
  ,
  {2951, 3771, 4878, 7578, 9016, 10298, 14490, 15242, 20223, 20990}
  ,
  {3256, 4791, 6601, 7521, 8644, 9707, 13398, 16078, 19102, 20249}
  ,
  {1827, 2614, 3486, 6039, 12149, 13823, 16191, 17282, 21423, 22041}
  ,
  {1000, 1704, 3002, 6335, 8471, 10500, 14878, 16979, 20026, 22427}
  ,
  {1646, 2286, 3109, 7245, 11493, 12791, 16824, 17667, 18981, 20222}
  ,
  {1708, 2501, 3315, 6737, 8729, 9924, 16089, 17097, 18374, 19917}
  ,
  {2623, 3510, 4478, 5645, 9862, 11115, 15219, 18067, 19583, 20382}
  ,
  {2518, 3434, 4728, 6388, 8082, 9285, 13162, 18383, 19819, 20552}
  ,
  {1726, 2383, 4090, 6303, 7805, 12845, 14612, 17608, 19269, 20181}
  ,
  {2860, 3735, 4838, 6044, 7254, 8402, 14031, 16381, 18037, 19410}
  ,
  {4247, 5993, 7952, 9792, 12342, 14653, 17527, 18774, 20831, 21699}
  ,
  {3502, 4051, 5680, 6805, 8146, 11945, 16649, 17444, 20390, 21564}
  ,
  {3151, 4893, 5899, 7198, 11418, 13073, 15124, 17673, 20520, 21861}
  ,
  {3960, 4848, 5926, 7259, 8811, 10529, 15661, 16560, 18196, 20183}
  ,
  {4499, 6604, 8036, 9251, 10804, 12627, 15880, 17512, 20020, 21046}
  ,
  {4251, 5541, 6654, 8318, 9900, 11686, 15100, 17093, 20572, 21687}
  ,
  {3769, 5327, 7865, 9360, 10684, 11818, 13660, 15366, 18733, 19882}
  ,
  {3083, 3969, 6248, 8121, 9798, 10994, 12393, 13686, 17888, 19105}
  ,
  {2731, 4670, 7063, 9201, 11346, 13735, 16875, 18797, 20787, 22360}
  ,
  {1187, 2227, 4737, 7214, 9622, 12633, 15404, 17968, 20262, 23533}
  ,
  {1911, 2477, 3915, 10098, 11616, 12955, 16223, 17138, 19270, 20729}
  ,
  {1764, 2519, 3887, 6944, 9150, 12590, 16258, 16984, 17924, 18435}
  ,
  {1400, 3674, 7131, 8718, 10688, 12508, 15708, 17711, 19720, 21068}
  ,
  {2322, 3073, 4287, 8108, 9407, 10628, 15862, 16693, 19714, 21474}
  ,
  {2630, 3339, 4758, 8360, 10274, 11333, 12880, 17374, 19221, 19936}
  ,
  {1721, 2577, 5553, 7195, 8651, 10686, 15069, 16953, 18703, 19929}
};


Word16 lspcb2[NC1][M] = {	/* Q13 */
  {-435, -815, -742, 1033, -518, 582, -1201, 829, 86, 385}
  ,
  {-833, -891, 463, -8, -1251, 1450, 72, -231, 864, 661}
  ,
  {-1021, 231, -306, 321, -220, -163, -526, -754, -1633, 267}
  ,
  {57, -198, -339, -33, -1468, 573, 796, -169, -631, 816}
  ,
  {171, -350, 294, 1660, 453, 519, 291, 159, -640, -1296}
  ,
  {-701, -842, -58, 950, 892, 1549, 715, 527, -714, -193}
  ,
  {584, 31, -289, 356, -333, -457, 612, -283, -1381, -741}
  ,
  {-109, -808, 231, 77, -87, -344, 1341, 1087, -654, -569}
  ,
  {-859, 1236, 550, 854, 714, -543, -1752, -195, -98, -276}
  ,
  {-877, -954, -1248, -299, 212, -235, -728, 949, 1517, 895}
  ,
  {-77, 344, -620, 763, 413, 502, -362, -960, -483, 1386}
  ,
  {-314, -307, -256, -1260, -429, 450, -466, -108, 1010, 2223}
  ,
  {711, 693, 521, 650, 1305, -28, -378, 744, -1005, 240}
  ,
  {-112, -271, -500, 946, 1733, 271, -15, 909, -259, 1688}
  ,
  {575, -10, -468, -199, 1101, -1011, 581, -53, -747, 878}
  ,
  {145, -285, -1280, -398, 36, -498, -1377, 18, -444, 1483}
  ,
  {-1133, -835, 1350, 1284, -95, 1015, -222, 443, 372, -354}
  ,
  {-1459, -1237, 416, -213, 466, 669, 659, 1640, 932, 534}
  ,
  {-15, 66, 468, 1019, -748, 1385, -182, -907, -721, -262}
  ,
  {-338, 148, 1445, 75, -760, 569, 1247, 337, 416, -121}
  ,
  {389, 239, 1568, 981, 113, 369, -1003, -507, -587, -904}
  ,
  {-312, -98, 949, 31, 1104, 72, -141, 1465, 63, -785}
  ,
  {1127, 584, 835, 277, -1159, 208, 301, -882, 117, -404}
  ,
  {539, -114, 856, -493, 223, -912, 623, -76, 276, -440}
  ,
  {2197, 2337, 1268, 670, 304, -267, -525, 140, 882, -139}
  ,
  {-1596, 550, 801, -456, -56, -697, 865, 1060, 413, 446}
  ,
  {1154, 593, -77, 1237, -31, 581, -1037, -895, 669, 297}
  ,
  {397, 558, 203, -797, -919, 3, 692, -292, 1050, 782}
  ,
  {334, 1475, 632, -80, 48, -1061, -484, 362, -597, -852}
  ,
  {-545, -330, -429, -680, 1133, -1182, -744, 1340, 262, 63}
  ,
  {1320, 827, -398, -576, 341, -774, -483, -1247, -70, 98}
  ,
  {-163, 674, -11, -886, 531, -1125, -265, -242, 724, 934}
};
Word16 fg[2][MA_NP][M] = {	/* Q15 */
  {
   {8421, 9109, 9175, 8965, 9034, 9057, 8765, 8775, 9106, 8673}
   ,
   {7018, 7189, 7638, 7307, 7444, 7379, 7038, 6956, 6930, 6868}
   ,
   {5472, 4990, 5134, 5177, 5246, 5141, 5206, 5095, 4830, 5147}
   ,
   {4056, 3031, 2614, 3024, 2916, 2713, 3309, 3237, 2857, 3473}
   }
  ,
  {
   {7733, 7880, 8188, 8175, 8247, 8490, 8637, 8601, 8359, 7569}
   ,
   {4210, 3031, 2552, 3473, 3876, 3853, 4184, 4154, 3909, 3968}
   ,
   {3214, 1930, 1313, 2143, 2493, 2385, 2755, 2706, 2542, 2919}
   ,
   {3024, 1592, 940, 1631, 1723, 1579, 2034, 2084, 1913, 2601}
   }
};
Word16 fg_sum[2][M] = {		/* Q15 */
  {7798, 8447, 8205, 8293, 8126, 8477, 8447, 8703, 9043, 8604}
  ,
  {14585, 18333, 19772, 17344, 16426, 16459, 15155, 15220, 16043, 15708}
};
Word16 fg_sum_inv[2][M] = {	/* Q12 */
  {17210, 15888, 16357, 16183, 16516, 15833, 15888, 15421, 14840, 15597}
  ,
  {9202, 7320, 6788, 7738, 8170, 8154, 8856, 8818, 8366, 8544}
};

/*-------------------------------------------------------------*
 *  Table for az_lsf()                                         *
 *                                                             *
 * Vector grid[] is in Q15                                     *
 *                                                             *
 * grid[0] = 1.0;                                              *
 * grid[grid_points+1] = -1.0;                                 *
 * for (i = 1; i < grid_points; i++)                           *
 *   grid[i] = cos((6.283185307*i)/(2.0*grid_points));         *
 *                                                             *
 *-------------------------------------------------------------*/

/* Version 51 points */
Word16 grid[GRID_POINTS + 1] = {
  32760, 32703, 32509, 32187, 31738, 31164,
  30466, 29649, 28714, 27666, 26509, 25248,
  23886, 22431, 20887, 19260, 17557, 15786,
  13951, 12062, 10125, 8149, 6140, 4106,
  2057, 0, -2057, -4106, -6140, -8149,
  -10125, -12062, -13951, -15786, -17557, -19260,
  -20887, -22431, -23886, -25248, -26509, -27666,
  -28714, -29649, -30466, -31164, -31738, -32187,
  -32509, -32703, -32760
};

/*-----------------------------------------------------*
 | Tables for pitch related routines .                 |
 -----------------------------------------------------*/

/* 1/3 resolution interpolation filter  (-3 dB at 3600 Hz)  in Q15 */

Word16 inter_3l[FIR_SIZE_SYN] = {
  29443,
  25207, 14701, 3143,
  -4402, -5850, -2783,
  1211, 3130, 2259,
  0, -1652, -1666,
  -464, 756, 1099,
  550, -245, -634,
  -451, 0, 308,
  296, 78, -120,
  -165, -79, 34,
  91, 70, 0
};

   /*Coefficients in floating point

      0.898517,
      0.769271,   0.448635,   0.095915,
      -0.134333,  -0.178528,  -0.084919,
      0.036952,   0.095533,   0.068936,
      -0.000000,  -0.050404,  -0.050835,
      -0.014169,   0.023083,   0.033543,
      0.016774,  -0.007466,  -0.019340,
      -0.013755,   0.000000,   0.009400,
      0.009029,   0.002381,  -0.003658,
      -0.005027,  -0.002405,   0.001050,
      0.002780,   0.002145,   0.000000};
    */

/*-----------------------------------------------------*
 | Tables for gain related routines .                  |
 -----------------------------------------------------*/

/* MA gain prediction coeff ={0.68, 0.58, 0.34, 0.19} in Q13 */
Word16 pred[4] = { 5571, 4751, 2785, 1556 };


Word16 gbk1[NCODE1][2] = {
/* Q14      Q13 */
  {1, 1516}
  ,
  {1551, 2425}
  ,
  {1831, 5022}
  ,
  {57, 5404}
  ,
  {1921, 9291}
  ,
  {3242, 9949}
  ,
  {356, 14756}
  ,
  {2678, 27162}
};

Word16 gbk2[NCODE2][2] = {
/* Q14       Q13 */
  {826, 2005}
  ,
  {1994, 0}
  ,
  {5142, 592}
  ,
  {6160, 2395}
  ,
  {8091, 4861}
  ,
  {9120, 525}
  ,
  {10573, 2966}
  ,
  {11569, 1196}
  ,
  {13260, 3256}
  ,
  {14194, 1630}
  ,
  {15132, 4914}
  ,
  {15161, 14276}
  ,
  {15434, 237}
  ,
  {16112, 3392}
  ,
  {17299, 1861}
  ,
  {18973, 5935}
};

Word16 map1[NCODE1] = {
  5, 1, 4, 7, 3, 0, 6, 2
};

Word16 map2[NCODE2] = {
  4, 6, 0, 2, 12, 14, 8, 10, 15, 11, 9, 13, 7, 3, 1, 5
};

/*  [0][0]      [0][1]       [1][0]     [1][1]    */
/*  Q10         Q14          Q16        Q19       */
Word16 coef[2][2] = {
  {31881, 26416}
  ,
  {31548, 27816}
};

/*  [0][0]      [0][1]       [1][0]     [1][1]    */
/*  Q26         Q30          Q32        Q35       */
Word32 L_coef[2][2] = {
  {2089405952L, 1731217536L}
  ,
  {2067549984L, 1822990272L}
};

Word16 thr1[NCODE1 - NCAN1] = {	/* Q14 */
  10808,
  12374,
  19778,
  32567
};
Word16 thr2[NCODE2 - NCAN2] = {	/* Q15 */
  14087,
  16188,
  20274,
  21321,
  23525,
  25232,
  27873,
  30542
};
Word16 imap1[NCODE1] = {
  5, 1, 7, 4, 2, 0, 6, 3
};

Word16 imap2[NCODE2] = {
  2, 14, 3, 13, 0, 15, 1, 12, 6, 10, 7, 9, 4, 11, 5, 8
};

/*-----------------------------------------------------*
 | Tables for routines post_pro() & pre_proc().        |
 -----------------------------------------------------*/

/* filter coefficients (fc = 100 Hz) */

Word16 b100[3] = { 7699, -15398, 7699 };	/* Q13 */
Word16 a100[3] = { 8192, 15836, -7667 };	/* Q13 */

/* filter coefficients (fc = 140 Hz, coeff. b[] is divided by 2) */

Word16 b140[3] = { 1899, -3798, 1899 };	/* 1/2 in Q12 */
Word16 a140[3] = { 4096, 7807, -3733 };	/* Q12 */

/*-----------------------------------------------------*
 | Tables for routine bits().                          |
 -----------------------------------------------------*/


Word16 bitsno[PRM_SIZE] = { 1 + NC0_B,	/* MA + 1st stage   */
  NC1_B * 2,			/* 2nd stage        */
  8, 1, 13, 4, 7,		/* first subframe   */
  5, 13, 4, 7
};				/* second subframe  */


/*-----------------------------------------------------*
 | Table for routine Pow2().                           |
 -----------------------------------------------------*/

Word16 tabpow[33] = {
  16384, 16743, 17109, 17484, 17867, 18258, 18658, 19066, 19484, 19911,
  20347, 20792, 21247, 21713, 22188, 22674, 23170, 23678, 24196, 24726,
  25268, 25821, 26386, 26964, 27554, 28158, 28774, 29405, 30048, 30706,
  31379, 32066, 32767
};

/*-----------------------------------------------------*
 | Table for routine Log2().                           |
 -----------------------------------------------------*/

Word16 tablog[33] = {
  0, 1455, 2866, 4236, 5568, 6863, 8124, 9352, 10549, 11716,
  12855, 13967, 15054, 16117, 17156, 18172, 19167, 20142, 21097, 22033,
  22951, 23852, 24735, 25603, 26455, 27291, 28113, 28922, 29716, 30497,
  31266, 32023, 32767
};

/*-----------------------------------------------------*
 | Table for routine Inv_sqrt().                       |
 -----------------------------------------------------*/

Word16 tabsqr[49] = {

  32767, 31790, 30894, 30070, 29309, 28602, 27945, 27330, 26755, 26214,
  25705, 25225, 24770, 24339, 23930, 23541, 23170, 22817, 22479, 22155,
  21845, 21548, 21263, 20988, 20724, 20470, 20225, 19988, 19760, 19539,
  19326, 19119, 18919, 18725, 18536, 18354, 18176, 18004, 17837, 17674,
  17515, 17361, 17211, 17064, 16921, 16782, 16646, 16514, 16384
};

/*-----------------------------------------------------*
 | Table for taming procedure test_err.                |
 -----------------------------------------------------*/

Word16 tab_zone[PIT_MAX + L_INTERPOL - 1] = {

  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2,
  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
};

Word16 lsp_old_init[M] = 
{
 30000, 26000, 21000, 15000, 8000, 0, -8000, -15000, -21000, -26000
};

Word16 freq_prev_reset[M] = {	/* Q13:previous LSP vector(init) */
  2339, 4679, 7018, 9358, 11698, 14037, 16377, 18717, 21056, 23396
};				/* PI*(float)(j+1)/(float)(M+1) */

Word16 past_qua_en_init [4] = { -14336, -14336, -14336, -14336 };



